Llamando librerías

library(plotly)

Attaching package: ‘plotly’

The following object is masked from ‘package:ggplot2’:

    last_plot

The following object is masked from ‘package:stats’:

    filter

The following object is masked from ‘package:graphics’:

    layout

Leemos datos y agregamos Interpretación de Estatus

gg01_pl$x$data[[2]]$legendgroup
[1] "B. Con IDP"

Agrupando por año

gb02<-base%>%
  group_by(aniocons)%>%
  mutate(n_px=n()#,
         # per_px=round(n_px/nrow(.),4)
         )%>%
  ungroup()%>%
  group_by(aniocons,ESTATUDX)%>%
  mutate(n_st_anio=n(),
         per_st_anio=round(n_st_anio/n_px,4))%>%
  filter(row_number()==1)%>%
  select(-Expediente)
gb02

LS0tCnRpdGxlOiAiU3RhdHVzIER4IGRlIGxhIEJhc2UgVUlJRCIKb3V0cHV0OgogIGh0bWxfbm90ZWJvb2s6CiAgICBkZl9wcmludDogcGFnZWQKICBodG1sX2RvY3VtZW50OgogICAgZGZfcHJpbnQ6IHBhZ2VkCi0tLQoKIyMgTGxhbWFuZG8gbGlicmVyw61hcwpgYGB7cn0KbGlicmFyeShnZ3Bsb3QyKQpsaWJyYXJ5KGRwbHlyKQpsaWJyYXJ5KHBsb3RseSkKYGBgCgojIyBMZWVtb3MgZGF0b3MgeSBhZ3JlZ2Ftb3MgSW50ZXJwcmV0YWNpw7NuIGRlIEVzdGF0dXMKYGBge3J9CmJhc2U8LXJlYWQuY3N2KCIuLi9kYXRhL1VJSURfc3RhdHVzZHguY3N2IixoZWFkZXI9VCkKY2xhc3MoYmFzZSkKYmFzZTwtYmFzZSU+JQogIGFzX2RhdGFfZnJhbWUoKSU+JQogIG11dGF0ZShFc3RhdHVzRHg9YXMuY2hhcmFjdGVyKEVTVEFUVURYKSwKICAgICAgICAgRXN0YXR1c0R4PWlmX2Vsc2UoRVNUQVRVRFg9PTAsIkMuIFNpbiBJRFAiLEVzdGF0dXNEeCksCiAgICAgICAgIEVzdGF0dXNEeD1pZl9lbHNlKEVTVEFUVURYPT0xLCJCLiBDb24gSURQIixFc3RhdHVzRHgpLAogICAgICAgICBFc3RhdHVzRHg9aWZfZWxzZShFU1RBVFVEWD09MiwiQS4gSURQIGVuIGVzdHVkaW8iLEVzdGF0dXNEeCkpCmNsYXNzKGJhc2UpCmJhc2UKYGBgCgpgYGB7cn0KZ2cwMTwtZ2dwbG90KGRhdGE9YmFzZSxhZXMoeD1hbmlvY29ucywgZ3JvdXA9RXN0YXR1c0R4LCBmaWxsPUVzdGF0dXNEeCkpICsgCiAgICBnZW9tX2RlbnNpdHkoYWRqdXN0PTEuNSwgcG9zaXRpb249ImZpbGwiKQpnZzAxCmBgYApgYGB7cn0KZ2cwMV9wbDwtZ2dwbG90bHkoZ2cwMSkKZ2cwMV9wbCR4JGRhdGFbWzJdXSRsZWdlbmRncm91cApnZzAxX3BsCmBgYAoKYGBge3J9CmdnMDFfcGwkeCRkYXRhW1syXV0kbGVnZW5kZ3JvdXAKYGBgCgojIyBBZ3J1cGFuZG8gcG9yIGHDsW8KYGBge3J9CmdiMDE8LWJhc2UlPiUKICBncm91cF9ieShhbmlvY29ucyklPiUKICBzdW1tYXJpc2Uobl9weD1uKCksCiAgICAgICAgICAgIHBlcl9weD1yb3VuZChuX3B4L25yb3coLiksNCkpCmdiMDEKYGBgCgpgYGB7cn0KZ2IwMjwtYmFzZSU+JQogIGdyb3VwX2J5KGFuaW9jb25zKSU+JQogIG11dGF0ZShuX3B4PW4oKSMsCiAgICAgICAgICMgcGVyX3B4PXJvdW5kKG5fcHgvbnJvdyguKSw0KQogICAgICAgICApJT4lCiAgdW5ncm91cCgpJT4lCiAgZ3JvdXBfYnkoYW5pb2NvbnMsRVNUQVRVRFgpJT4lCiAgbXV0YXRlKG5fc3RfYW5pbz1uKCksCiAgICAgICAgIHBlcl9zdF9hbmlvPXJvdW5kKG5fc3RfYW5pby9uX3B4LDQpKSU+JQogIGZpbHRlcihyb3dfbnVtYmVyKCk9PTEpJT4lCiAgc2VsZWN0KC1FeHBlZGllbnRlKQoKZ2IwMgpgYGAKCmBgYHtyfQpnZzAxPC1nZ3Bsb3QoZGF0YT1nYjAyKQpnZzAxPC1nZzAxKwogIGdlb21fYmFyKGFlcyh4PWFuaW9jb25zLHk9cGVyX3N0X2FuaW8pKQpnZzAxCgpnZ3Bsb3QoZGF0YT1iYXNlJT4lbXV0YXRlKEVzdGF0dXNEeD0pLGFlcyh4PWFuaW9jb25zLCBncm91cD1Fc3RhdHVzRHgsIGZpbGw9RXN0YXR1c0R4KSkgKyAKICAgIGdlb21fZGVuc2l0eShhZGp1c3Q9MS41LCBwb3NpdGlvbj0iZmlsbCIpCmBgYAoKYGBge3J9CgpgYGAKCmBgYHtyfQoKYGBgCgpgYGB7cn0KCmBgYAoKYGBge3J9CgpgYGAKCmBgYHtyfQoKYGBgCgpgYGB7cn0KCmBgYAoK